OBJECT TmpRas
	RasPtr:PTR TO CHAR,
	Size:LONG

OBJECT GelsInfo
	Sprrsrvd:UBYTE,
	Flags:CHAR,
	GelHead:PTR TO VS,
	GelTail:PTR TO VS,
	NextLine:PTR TO INT,
	LastColor:PTR TO PTR TO INT,
	CollHandler:PTR TO CollTable,
	LeftMost:INT,
	RightMost:INT,
	TopMost:INT,
	BottomMost:INT,
	FirstBlissObj:LONG,
	LastBlissObj:LONG

CONST	RPF_FRST_DOT=1,
		RPF_ONE_DOT=2,
		RPF_DBUFFER=4,
		RPF_AREAOUTLINE=8,
		RPF_NOCROSSFILL=$20,
		RP_JAM1=0,
		RP_JAM2=1,
		RP_COMPLEMENT=2,
		RP_INVERSVID=4,
		RPF_TXSCALE=1

CONST	RP_AREAPTRN=8,
		RP_MASK=24,
		RP_AOLPEN=27,
		RP_AREAPTSZ=29,
		RP_LINPATCNT=30,
		RP_FLAGS=32,
		RP_LINEPTRN=34

OBJECT RastPort
	Layer:PTR TO Layer,
	BitMap:PTR TO BitMap,
	AreaPtrn:PTR TO UWORD,
	TmpRas:PTR TO TmpRas,
	AreaInfo:PTR TO AreaInfo,
	GelsInfo:PTR TO GelsInfo,
	Mask:CHAR,
	FgPen:UBYTE,
	BgPen:UBYTE,
	AOLPen:UBYTE,
	DrawMode:UBYTE,
	AreaPtsz:UBYTE,
	linpatcnt:UBYTE,
	Dummy:CHAR,
	Flags:UWORD,
	LinePtrn:INT,UWORD,
	Cp_X:INT,
	Cp_Y:INT,
	MinTerms[8]:CHAR,
	PenWidth:INT,
	PenHeight:INT,
	Font:PTR TO TextFont,
	AlgoStyle:CHAR,
	TxFlags:CHAR,
	TxHeight:UWORD,
	TxWidth:UWORD,
	TxBaseLine:UWORD,
	TxSpacing:INT,
	Rp_User:PTR TO LONG,
	Longreserved[2]:LONG,
	Wordreserved[7]:UWORD,
	Reserved[8]:CHAR

OBJECT AreaInfo
	VctrTbl:PTR TO INT,
	VctrPtr:PTR TO INT,
	FlagTbl:PTR TO UBYTE,
	FlagPtr:PTR TO UBYTE,
	Count:INT,
	MaxCount:INT,
	FirstX:INT,
	FirstY:INT

CONST	ONE_DOTN=1,
		ONE_DOT=2,
		FRST_DOTN=0,
		FRST_DOT=1
